This meme is a recreation of an old meme I remember seeing back in 2017, it wasn’t until I used the bathrooms at the university which I remembered about this meme. This meme is also relevant due to it being related to my personal experiences here in the University of Auckland, and spongebob is also one of my childhood favorite cartoons so the image used in this meme is quite dear to me

library(magick)
base <- image_blank(width = 450, 
                    height = 130, 
                    color = "#fff") %>%
  image_annotate(text = " When you sit on the toilet after \n someone and you can feel the \n warmth left over from \n they bootycheeks",
                 color = "#000",
                 size = 30,
                 font = "Impact")

p1<-image_read("p1.jpg")%>%
  image_scale(250)
p2<-image_read("p2.jpg")%>%
  image_scale(250)

img_vector = c( image_noise(p1) , image_modulate(image_noise(p2), brightness = 80, saturation = 120, hue = 90) ) #make Patrick  s p i c y
top_meme = c(base) %>%
  image_append()
bottom_meme = c(img_vector) %>%
  image_append()
#caption and photos of Patrick are different vectors

meme <- c(top_meme,bottom_meme) %>%
  image_append(stack = TRUE)

#stack the caption and Patrick

meme

image_write(meme, "meme.png")

I created my animation based off a very exhilarating fight scene from the anime One Piece between protagonist Monkey D. Luffy and antagonist Charlotte Katakuri. I chose this scene for my gif as it captivated me when I first watched it and is embedded into my brain, the amount of bad-assery in this scene is spectacular. It is probably one of if not my most favorite fight in the series.

library(magick)

frame1 <- image_read("IMG_9322.jpg")%>%
  image_scale(500)
frame2 <- image_read("IMG_9323.jpg")%>%
  image_scale(500)
frame3 <- image_read("IMG_9324.jpg")%>%
  image_scale(500)
frame5 <- image_read("IMG_9326.jpg")%>%
  image_scale(500)
frame6 <- image_read("IMG_9327.jpg")%>%
  image_scale(500)
frame7 <- image_read("IMG_9328.jpg")%>%
  image_scale(500)
frame8 <- image_read("IMG_9329.jpg")%>%
  image_scale(500)
frame9 <- image_read("IMG_9330.jpg")%>%
  image_scale(500)
frame10 <- image_read("IMG_9331.jpg")%>%
  image_scale(500)
frame11 <- image_read("IMG_9332.jpg")%>%
  image_scale(500)
frame12 <- image_read("IMG_9333.jpg")%>%
  image_scale(500)
frame13 <- image_read("IMG_9334.jpg")%>%
  image_scale(500)
frame14 <- image_read("IMG_9335.jpg")%>%
  image_scale(500)
frame15 <- image_read("IMG_9336.jpg")%>%
  image_scale(500)
frame16 <- image_read("IMG_9337.jpg")%>%
  image_scale(500)
frame17 <- image_read("IMG_9338.jpg")%>%
  image_scale(500)
frame18 <- image_read("IMG_9339.jpg")%>%
  image_scale(500)
frame19 <- image_read("IMG_9340.jpg")%>%
  image_scale(500)
frame20 <- image_read("IMG_9341.jpg")%>%
  image_scale(500)
frame21 <- image_read("IMG_9342.jpg")%>%
  image_scale(500)
frame22 <- image_read("IMG_9343.jpg")%>%
  image_scale(500)

frames <- c(frame1, frame2, frame3, frame5, frame6, frame7, frame8, frame9, frame10, frame11, frame12, frame13, frame14, frame15, frame16, frame17, frame18, frame19, frame20, frame21, frame22)

frames %>%
  image_animate(fps = 2.5)

frames

image_write(frames, "animation.R")
body {
background-color: #800000
}
metadata {
background-color:#FFDEAD
}
p {
font-size: 18px;
color: #FFDEAD;
text-align: center
}
h1{
text-align: center;
background-color:#FFDEAD;
color: #191970;
padding: 20px;
margin: 20px
}
h2 {color: white;
text-align: center
}